home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 11 / PCPP11.iso / utils / frogbit / fb-097.exe / REMBLANK AND COUNT.FB < prev    next >
Encoding:
Text File  |  1997-02-04  |  364 b   |  23 lines
  1.  
  2. // remove blanks and count lines with "test"
  3.  
  4. input "data.in"
  5.  
  6. set count equal to 0
  7. do while (someLeft input)
  8.   read
  9.   if (line<>"")
  10.     write
  11.     if (line contains "test")
  12.       set count equal to (count+1)
  13.     endif
  14.   endif
  15.  
  16.   // comment out the next line to make the program run faster
  17.   refresh
  18.  
  19. loop
  20.  
  21. write ""
  22. write ("Count is " count)
  23.